home *** CD-ROM | disk | FTP | other *** search
Text File | 1995-03-15 | 352 b | 20 lines | [TEXT/MPCC] |
- module: Dylan-User
-
- define constant f = method(arg1, arg2, arg3)
- values(arg1, arg2, arg3);
- end method;
-
- define method main (arg0, #rest args)
- let v = #f;
- local method test()
- break("inside test.");
- v := f(1, 2, 3);
- end;
- break("calling test.");
- test();
- puts("Enter a character: ");
- let ch = getc();
- puts("You entered: ");
- putc(ch);
- end;
-